﻿<!--#include file="../../base.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>查看并修改用户信息</title>
<link href="../../skin/default/main.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%
dim contid,sql,rs,nowDate,ident
nowDate=now()
contid=request.QueryString("wpid")
ident=request.QueryString("ident")
if not IsLogin() or contid="" or ident="" then
    showMsg "您无权查看此信息",4,""
else
%>       
<table align="center" width="95%" cellpadding="0" cellspacing="0" style="margin-top:10px; border:1px solid #333333;">
<%
sql="select * from View_subJud where wpID="&contid
set rs=GetRecordset(sql,0)
if not rs.eof and not rs.bof then
%>
<tr>
<td style="padding:6px; height: 31px;border:1px solid #333333;"><b>学生姓名</b>&nbsp;&nbsp;<%=rs("userName")%></td>
<td style="padding:6px; height: 31px;border:1px solid #333333;"><b>评价状态</b>&nbsp;&nbsp;<%=rs("judge")%></td>
</tr>
<tr>
<td colspan="2" style="padding:6px; height: 31px;border:1px solid #333333;"><b>作业标题</b>&nbsp;&nbsp;<%=rs("title")%></td>
</tr>
<tr>
<td colspan="2" style="padding:6px;border:1px solid #333333;"><b>提交内容</b><br /><%=rs("content")%></td>
</tr>
<tr>
<td colspan="2" style="padding:6px;border:1px solid #333333;"><b>评价内容</b><br /><%=rs("commContent")%></td>
</tr>
<tr><td style="padding:6px;border:1px solid #333333;"><b>评价成绩</b>&nbsp;&nbsp;<%=rs("commJudge")%></td><td style="padding:6px;border:1px solid #333333;"><b>相关操作</b>&nbsp;&nbsp;
<%
if ident="0" then
%>
<a href="../judge.asp?contid=<%=rs("wpID")%>">评价作业</a>
<%
end if
if ident="1" and isnull(rs("commContent")) and isnull(rs("commJudge")) then
%>
<a href="../editor_workpost.asp?workid=<%=rs("workID")%>">提交作业</a>
<%
end if
%>
</td></tr>
<%
else showMsg "作业不存在",4,""
end if
rs.close
set rs=nothing
CloseDataBase
%>
</table>
<%end if%>
</body>
</html>